home *** CD-ROM | disk | FTP | other *** search
Wrap
% % button9301.ps - A GNU Button Program % % Copyright 1993 Free Software Foundation % % This program is free software; you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by % the Free Software Foundation; either version 2, or (at your option) % any later version. % % This program is distributed in the hope that it will be useful, % but WITHOUT ANY WARRANTY; without even the implied warranty of % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the % GNU General Public License for more details. % % You should have received a copy of the GNU General Public License % along with this program; if not, write to the Free Software % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. % % Hard copies of this button were first distributed at the January % 1993 San Diego Usenix. They had black lettering on a white % background on a standard 2 1/4" safety pin button. They were % designed by Leonard H. Tower Jr. who is also the author of this GNU % Button Program. % % Report bugs or improvements to: tower@prep.ai.mit.edu % % Hard copies of this button are probably still available. To get a % button, one must have either donated source code or documentation to % the GNU Project or make a donation of at least $ 2.00 for each button. % % If you wish a hard copy of a gnu button send: % - a self-addressed, stamped envelope; and % - either: % - a reminder of your source or documentation contribution; or % - a donation payable to the "Free Software Foundation"; and % - specify how many each of these different versions you wish: % Feb 88 (white GNU) Jun 88 (yellow GNU) % Jan 89 (blue GNUer) Jun 89 (green GNUist) % Jan 90 (yellow thanx GNU) Jun 90 (white text on GNU) @@?? % Jan 91 (yellow text on GNU)@@?? Jun 91 (white cubist GNU) @@?? % Jan 92 (yellow cubist GNU) @@?? Jun 92 (yellow GnURU) % Jan 93 (white gnu & improved) % to: L. Tower Jr. % 36 Porter Street, % Somerville, MA 02143, USA % % This program is available for anonymous ftp % prep.ai.mit.edu:/u2/emacs/button.N.MM.shar. It is probably available % in other source archives. % This version has this "phrase" centered inside the fine print circle: % % ggg g n nnn u u % g gg nn n u u % g g n n u u % g g n n u u % g gg n n u uu % ggg g n n uuu u & % g % gggg i m p r o v e d % % This was inspired by the phrase on the front of the first CD-ROM. % The phrase and front cover design was created by % mycroft@gnu.ai.mit.edu (Charles Hannum). erasepage % debugging help .so ehandler.ps % uses {in,out}sidecircletext routines from Adobe Cookbook. .so circtext.ps % center button on 8 1/2" x 11" page 306 396 translate % This is a kludge to give better edge resolution. % Note that postscript's scale command doesn't cut it. % It scales after the edges are set. % biggg is set to 2,3,4, 3.7 or 3.9 to make a master that is that much larger. % The master is reduced that much by the button manufacturer. % If only 1200 dpi postscript printers were more common ... /biggg 1 def % useful for centering button design /circleguide { gsave /radius 82 biggg mul def .5 setlinewidth newpath 0 0 radius 0 360 arc stroke grestore } def %circleguide gsave /gnutext (gnu) def /gtext (g) def /amptext (&) def /improvedtext (improved) def % The "&" and "improved" are 1/*fudge size of /gnutext /ampfudge 4 def /improvedfudge 4 def /gnuptsz 60 biggg mul def /improvedptsz gnuptsz improvedfudge div def /Times-Bold findfont gnuptsz scalefont setfont %center /ampwidth amptext stringwidth pop ampfudge div def /gnuwidth gnutext stringwidth pop def /gwidth gtext stringwidth pop def /shiftleft ampwidth 4 div def /firstlinewidth gnuwidth ampwidth add def /shiftdown gnuptsz 10 div neg def firstlinewidth 2 div neg shiftleft add shiftdown moveto gnutext show /Times-Bold findfont gnuptsz ampfudge div scalefont setfont amptext show /Times-Bold findfont improvedptsz scalefont setfont /improvedwidth improvedtext stringwidth pop def improvedwidth 2 div neg gwidth 1.2 div add improvedptsz neg shiftdown add moveto improvedtext show grestore gsave /GNUptsz 14 biggg mul def /Times-Bold findfont GNUptsz scalefont setfont (GNU's Not Unix) GNUptsz 270 63 biggg mul insidecircletext grestore /tinyptsz 5.75 biggg mul def /tinyrad 73 biggg mul def /Helvetica-Narrow-Bold findfont tinyptsz scalefont setfont (Copyright 1993 Free Software Foundation, Inc.) tinyptsz 270 tinyrad outsidecircletext (Anonymous ftp prep.ai.mit.edu:/pub/gnu/button.N.shar, this button's postscript program, which is freely redistributable under the GNU General Public License.) tinyptsz 90 tinyrad outsidecircletext showpage